home *** CD-ROM | disk | FTP | other *** search
/ Complete Linux / Complete Linux.iso / docs / devel / tcl / itcl1_31.z / itcl1_31 / tcldev / itcl-1.3 / tests / Bar.tcl < prev    next >
Encoding:
Text File  |  1993-09-23  |  897 b   |  36 lines
  1. #
  2. # Test class for [incr Tcl] test suite
  3. # ----------------------------------------------------------------------
  4. #   AUTHOR:  Michael J. McLennan       Phone: (215)770-2842
  5. #            AT&T Bell Laboratories   E-mail: aluxpo!mmc@att.com
  6. #
  7. #     SCCS:  @(#)Bar.tcl    1.1 (7/15/93)
  8. # ----------------------------------------------------------------------
  9. #            Copyright (c) 1993  AT&T  All Rights Reserved
  10. # ======================================================================
  11.  
  12. itcl_class Bar {
  13.     #
  14.     #  Constructor/destructor add their name to a global var for
  15.     #  tracking implicit constructors/destructors
  16.     #
  17.     constructor {config} {
  18.         global WATCH
  19.         lappend WATCH [info class]
  20.     }
  21.     destructor {
  22.         global WATCH
  23.         lappend WATCH [info class]
  24.     }
  25.  
  26.     method config {config} {
  27.         return $config
  28.     }
  29.  
  30.     #
  31.     #  Define variables that will be shadowed by another class.
  32.     #
  33.     public blit
  34.     protected _blit
  35. }
  36.